library(tidyverse)
library(plotly)
levels_df <- read_csv("levels-cleaned.csv")
companyCompensation <-
levels_df %>%
group_by(year, company) %>%
summarise(yearly_compensation = mean(totalyearlycompensation))
cityCompensation <-
levels_df %>%
group_by(year, location) %>%
summarise(yearly_compensation = mean(totalyearlycompensation))
Yearly mean compensation for top 5 companies in 2017, 2018, 2019, 2020, 2021
companyCompensation2017 <-
companyCompensation %>%
filter(year == 2017) %>%
arrange(desc(yearly_compensation)) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~company,
type = "bar",
text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
companyCompensation2018 <-
companyCompensation %>%
filter(year == 2018) %>%
arrange(desc(yearly_compensation)) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~company,
type = "bar",
text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
companyCompensation2019 <-
companyCompensation %>%
filter(year == 2019) %>%
arrange(desc(yearly_compensation)) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~company,
type = "bar",
text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
companyCompensation2020 <-
companyCompensation %>%
filter(year == 2020) %>%
arrange(desc(yearly_compensation)) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~company,
type = "bar",
text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
companyCompensation2021 <-
companyCompensation %>%
filter(year == 2021) %>%
arrange(desc(yearly_compensation)) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~company,
type = "bar",
text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
subplot(companyCompensation2017, companyCompensation2018, companyCompensation2019, companyCompensation2020, companyCompensation2021, nrows = 5)
Yearly mean compensation for top 5 cities in 2017, 2018, 2019, 2020, 2021
cityCompensation2017 <-
cityCompensation %>%
filter(year == 2017) %>%
arrange(desc(yearly_compensation)) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~location,
type = "bar",
text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
cityCompensation2018 <-
cityCompensation %>%
filter(year == 2018) %>%
arrange(desc(yearly_compensation)) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~location,
type = "bar",
text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
cityCompensation2019 <-
cityCompensation %>%
filter(year == 2019) %>%
arrange(desc(yearly_compensation)) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~location,
type = "bar",
text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
cityCompensation2020 <-
cityCompensation %>%
filter(year == 2020) %>%
arrange(desc(yearly_compensation)) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~location,
type = "bar",
text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
cityCompensation2021 <-
cityCompensation %>%
filter(year == 2021) %>%
arrange(desc(yearly_compensation)) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~location,
type = "bar",
text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
subplot(cityCompensation2017, cityCompensation2018, cityCompensation2019, cityCompensation2020, cityCompensation2021, nrows = 5)
Yearly mean compensation for last 5 companies in 2017, 2018, 2019, 2020, 2021
companyCompensation2017 <-
companyCompensation %>%
filter(year == 2017) %>%
arrange(yearly_compensation) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~company,
type = "bar",
text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
companyCompensation2018 <-
companyCompensation %>%
filter(year == 2018) %>%
arrange(yearly_compensation) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~company,
type = "bar",
text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
companyCompensation2019 <-
companyCompensation %>%
filter(year == 2019) %>%
arrange(yearly_compensation) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~company,
type = "bar",
text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
companyCompensation2020 <-
companyCompensation %>%
filter(year == 2020) %>%
arrange(yearly_compensation) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~company,
type = "bar",
text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
companyCompensation2021 <-
companyCompensation %>%
filter(year == 2021) %>%
arrange(yearly_compensation) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~company,
type = "bar",
text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
subplot(companyCompensation2017, companyCompensation2018, companyCompensation2019, companyCompensation2020, companyCompensation2021, nrows = 5)
Yearly mean compensation for last 5 cities in 2017, 2018, 2019, 2020, 2021
cityCompensation2017 <-
cityCompensation %>%
filter(year == 2017) %>%
arrange(yearly_compensation) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~location,
type = "bar",
text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
cityCompensation2018 <-
cityCompensation %>%
filter(year == 2018) %>%
arrange(yearly_compensation) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~location,
type = "bar",
text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
cityCompensation2019 <-
cityCompensation %>%
filter(year == 2019) %>%
arrange(yearly_compensation) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~location,
type = "bar",
text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
cityCompensation2020 <-
cityCompensation %>%
filter(year == 2020) %>%
arrange(yearly_compensation) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~location,
type = "bar",
text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
cityCompensation2021 <-
cityCompensation %>%
filter(year == 2021) %>%
arrange(yearly_compensation) %>%
head(n = 5) %>%
plot_ly(
x = ~yearly_compensation,
y = ~location,
type = "bar",
text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
hoverinfo = "text"
) %>%
layout(showlegend = FALSE)
subplot(cityCompensation2017, cityCompensation2018, cityCompensation2019, cityCompensation2020, cityCompensation2021, nrows = 5)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICBkZl9wcmludDogcGFnZWQKLS0tCgpgYGB7cn0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkocGxvdGx5KQpgYGAKCmBgYHtyfQpsZXZlbHNfZGYgPC0gcmVhZF9jc3YoImxldmVscy1jbGVhbmVkLmNzdiIpCmBgYAoKYGBge3J9CmNvbXBhbnlDb21wZW5zYXRpb24gPC0gCiAgbGV2ZWxzX2RmICU+JQogIGdyb3VwX2J5KHllYXIsIGNvbXBhbnkpICU+JQogIHN1bW1hcmlzZSh5ZWFybHlfY29tcGVuc2F0aW9uID0gbWVhbih0b3RhbHllYXJseWNvbXBlbnNhdGlvbikpCgpjaXR5Q29tcGVuc2F0aW9uIDwtIAogIGxldmVsc19kZiAlPiUKICBncm91cF9ieSh5ZWFyLCBsb2NhdGlvbikgJT4lCiAgc3VtbWFyaXNlKHllYXJseV9jb21wZW5zYXRpb24gPSBtZWFuKHRvdGFseWVhcmx5Y29tcGVuc2F0aW9uKSkKYGBgCgpZZWFybHkgbWVhbiBjb21wZW5zYXRpb24gZm9yIHRvcCA1IGNvbXBhbmllcyBpbiAyMDE3LCAyMDE4LCAyMDE5LCAyMDIwLCAyMDIxCmBgYHtyfQpjb21wYW55Q29tcGVuc2F0aW9uMjAxNyA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTcpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTgpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTkpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjApICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjEpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpzdWJwbG90KGNvbXBhbnlDb21wZW5zYXRpb24yMDE3LCBjb21wYW55Q29tcGVuc2F0aW9uMjAxOCwgY29tcGFueUNvbXBlbnNhdGlvbjIwMTksIGNvbXBhbnlDb21wZW5zYXRpb24yMDIwLCBjb21wYW55Q29tcGVuc2F0aW9uMjAyMSwgbnJvd3MgPSA1KQpgYGAKClllYXJseSBtZWFuIGNvbXBlbnNhdGlvbiBmb3IgdG9wIDUgY2l0aWVzIGluIDIwMTcsIDIwMTgsIDIwMTksIDIwMjAsIDIwMjEKYGBge3J9CmNpdHlDb21wZW5zYXRpb24yMDE3IDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAxNykgJT4lCiAgYXJyYW5nZShkZXNjKHllYXJseV9jb21wZW5zYXRpb24pKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMTggPC0gCiAgY2l0eUNvbXBlbnNhdGlvbiAlPiUKICBmaWx0ZXIoeWVhciA9PSAyMDE4KSAlPiUKICBhcnJhbmdlKGRlc2MoeWVhcmx5X2NvbXBlbnNhdGlvbikpICU+JQogIGhlYWQobiA9IDUpICU+JQogIHBsb3RfbHkoCiAgICB4ID0gfnllYXJseV9jb21wZW5zYXRpb24sCiAgICB5ID0gfmxvY2F0aW9uLAogICAgdHlwZSA9ICJiYXIiLAogICAgdGV4dCA9IH5wYXN0ZShsb2NhdGlvbiwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjaXR5Q29tcGVuc2F0aW9uMjAxOSA8LSAKICBjaXR5Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTkpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCmNpdHlDb21wZW5zYXRpb24yMDIwIDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAyMCkgJT4lCiAgYXJyYW5nZShkZXNjKHllYXJseV9jb21wZW5zYXRpb24pKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMjEgPC0gCiAgY2l0eUNvbXBlbnNhdGlvbiAlPiUKICBmaWx0ZXIoeWVhciA9PSAyMDIxKSAlPiUKICBhcnJhbmdlKGRlc2MoeWVhcmx5X2NvbXBlbnNhdGlvbikpICU+JQogIGhlYWQobiA9IDUpICU+JQogIHBsb3RfbHkoCiAgICB4ID0gfnllYXJseV9jb21wZW5zYXRpb24sCiAgICB5ID0gfmxvY2F0aW9uLAogICAgdHlwZSA9ICJiYXIiLAogICAgdGV4dCA9IH5wYXN0ZShsb2NhdGlvbiwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpzdWJwbG90KGNpdHlDb21wZW5zYXRpb24yMDE3LCBjaXR5Q29tcGVuc2F0aW9uMjAxOCwgY2l0eUNvbXBlbnNhdGlvbjIwMTksIGNpdHlDb21wZW5zYXRpb24yMDIwLCBjaXR5Q29tcGVuc2F0aW9uMjAyMSwgbnJvd3MgPSA1KQpgYGAKClllYXJseSBtZWFuIGNvbXBlbnNhdGlvbiBmb3IgbGFzdCA1IGNvbXBhbmllcyBpbiAyMDE3LCAyMDE4LCAyMDE5LCAyMDIwLCAyMDIxCmBgYHtyfQpjb21wYW55Q29tcGVuc2F0aW9uMjAxNyA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTcpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTgpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTkpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjApICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjEpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpzdWJwbG90KGNvbXBhbnlDb21wZW5zYXRpb24yMDE3LCBjb21wYW55Q29tcGVuc2F0aW9uMjAxOCwgY29tcGFueUNvbXBlbnNhdGlvbjIwMTksIGNvbXBhbnlDb21wZW5zYXRpb24yMDIwLCBjb21wYW55Q29tcGVuc2F0aW9uMjAyMSwgbnJvd3MgPSA1KQpgYGAKClllYXJseSBtZWFuIGNvbXBlbnNhdGlvbiBmb3IgbGFzdCA1IGNpdGllcyBpbiAyMDE3LCAyMDE4LCAyMDE5LCAyMDIwLCAyMDIxCmBgYHtyfQpjaXR5Q29tcGVuc2F0aW9uMjAxNyA8LSAKICBjaXR5Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTcpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCmNpdHlDb21wZW5zYXRpb24yMDE4IDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAxOCkgJT4lCiAgYXJyYW5nZSh5ZWFybHlfY29tcGVuc2F0aW9uKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMTkgPC0gCiAgY2l0eUNvbXBlbnNhdGlvbiAlPiUKICBmaWx0ZXIoeWVhciA9PSAyMDE5KSAlPiUKICBhcnJhbmdlKHllYXJseV9jb21wZW5zYXRpb24pICU+JQogIGhlYWQobiA9IDUpICU+JQogIHBsb3RfbHkoCiAgICB4ID0gfnllYXJseV9jb21wZW5zYXRpb24sCiAgICB5ID0gfmxvY2F0aW9uLAogICAgdHlwZSA9ICJiYXIiLAogICAgdGV4dCA9IH5wYXN0ZShsb2NhdGlvbiwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjaXR5Q29tcGVuc2F0aW9uMjAyMCA8LSAKICBjaXR5Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjApICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCmNpdHlDb21wZW5zYXRpb24yMDIxIDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAyMSkgJT4lCiAgYXJyYW5nZSh5ZWFybHlfY29tcGVuc2F0aW9uKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKc3VicGxvdChjaXR5Q29tcGVuc2F0aW9uMjAxNywgY2l0eUNvbXBlbnNhdGlvbjIwMTgsIGNpdHlDb21wZW5zYXRpb24yMDE5LCBjaXR5Q29tcGVuc2F0aW9uMjAyMCwgY2l0eUNvbXBlbnNhdGlvbjIwMjEsIG5yb3dzID0gNSkKYGBgCg==